package Baseliner::Utils;

use Exporter::Tidy default => [ qw(_loc slashFwd _unique) ];
	
use Locale::Maketext::Simple (Style => 'gettext');
use strict;

BEGIN {
	loc_lang($Baseliner::locale);
}

## base standard utilities subs
sub slashFwd {
	$_[0] =~ s{\\}{/}g ;
	return $_[0];
}

sub _unique {
	keys %{{ map {$_=>1} @_ }};
}

sub _loc {
	loc( @_ );
}

1;